home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Your Choice 3
/
Your Choice Software Collection 3.iso
/
service
/
foxpro2
/
foxapp.app
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1994-01-01
|
89KB
|
1,387 lines
TALKz
SAFETYz
forceregenf
TALKz
COMPATIBLEz
appgen
FoxPro Application Generator
addbs
forceext
defaultext
juststem
justext
justpath
justfname
cleanpath
foxapp
ERROR
DO apperror WITH PROGRAM(),MESSAGE(),MESSAGE(1),LINENO(),ERROR()
ESCAPE
DO appescape WITH PROGRAM(),MESSAGE(),MESSAGE(1),LINENO(),ERROR()
fpath
APPMENU.MNX
COMMAND
FOXAPP
GENERATE
Error opening CONFIG.FP.
FOXAPP
MENUS\APPMENU.PRG2
MENUS\APPMENU.MPR2
MENUS\APPMENU.MPR
COPY FILE MENUS\appmenu.prg TO &mpr_name
appmenu.prg2
appmenu.mpr2
appmenu.mpr
COPY FILE appmenu.prg TO &mpr_name
FOXAPP\MENUS\APPMENU.PRG2
FOXAPP\MENUS\APPMENU.MPR2
FOXAPP\MENUS\APPMENU.MPR
COPY FILE foxapp\MENUS\appmenu.prg TO &mpr_name
MENUS\APPMENU.PRG2
MENUS\APPMENU.MPR2
MENUS\APPMENU.MPR
DELETE FILE &mpr_name
appmenu.prg2
appmenu.mpr2
appmenu.mpr
DELETE FILE &mpr_name
FOXAPP\MENUS\APPMENU.PRG2
FOXAPP\MENUS\APPMENU.MPR2
FOXAPP\MENUS\APPMENU.MPR
DELETE FILE &mpr_name
MENUS\APPMENU.PRG2
MENUS\APPMENU.MPX2
MENUS\APPMENU.MPX
DELETE FILE &mpx_name
appmenu.prg2
appmenu.MPX2
appmenu.MPX
DELETE FILE &mpx_name
FOXAPP\MENUS\APPMENU.PRG2
FOXAPP\MENUS\APPMENU.MPX2
FOXAPP\MENUS\APPMENU.MPX
DELETE FILE &mpx_name
appgen
Screen name:
Database name:
Step 2 : Design a screen
Step 1: Create or modify a database
@*VN \<Create
@*VN \<Modify
@*VN \<File List
@*HN Re\<lated...
@*VN C\<reate
@*VN M\<odify
@*VN F\<ile List
@*VN \!\<Generate
@*HN \<Advanced
@*VN \?\<Cancel
appgen
The screen file is missing.
The database file is missing.
Locate
please
FoxApp has created an application named F
in the F
directory.
You can run your application now by pressing any key.
To run it in the future, simply select "Application"
from the RUN menu, or enter FoxPro and type:
SET DEFAULT TO F
DO F
Thank you for using FoxApp!
Press any key to start your application.
RSCUSED
C:FORCEREGENAPP_TALK
APP_SAFE
CURRAREA
NTALKSTAT
COMPSTAT
APPGEN
ADDBS
FORCEEXT
DEFAULTEXTJUSTSTEM
JUSTEXT
PRJUSTPATH
GJUSTFNAME
CLEANPATH
APPFILE
PAMNUNAME
DBFNAME
PRSCXNAME
REPNAME
TMFNAME
SKIPDBFBUTDBFLIST
FIRSTTIME
ORIGNAME
APP_ERROR
APP_ESCAPEFOXAPP
APEFPATH
CAPEAPPPATHLENGENERATE
NCANCBUT
ADDDBF
ADDSCX
MODSCX
MODDBF
COMMAND
ENNUMCOLS
NUMAREAS
CSTEMNUM
RELSTRNUM
PFLDNUM
xCFLDNUM
CDBFNUM
PDBFNUM
SROWNUM
SCOLNUM
NSEROWNUM
PRECOLNUM
ARRANGED
CTRLROW
CTRLCOL
NEXTDBF
OPRSC_CHECK
RSC_STOREDRETRIEVERSSTORERSC
REGEN
EGENFP
EGENBUFFER
FOXAPPDIR
FINDSRC
MPR_NAME
MPX_NAME
QUITTING
_Q4E12HSXE_Q4E12HT0L_Q4E12HT8S_Q4E12HTE6LISTDBF
_Q4E12HTHS_Q4E12HTK6OTHER
_Q4E12HTP0_Q4E12HTSF_Q4E12HTV8_Q4E12HTZI_Q4E12HU3J_Q4E12HU6ALISTSCX
_Q4E12HU9T_Q4E12HUD6ADVANCED
@_Q4E12HX0F_Q4E12HX36_Q4E12HX66_Q4E12HX67CLOSE_UP
2INVSTEM
CDXNAME
INVERT
APPDOC
IN_WRAP
IN_LMARGININ_RMARGININVNAME
INBAILOUT
S#APPSHELL
2/1/92#
\LIBS\FPATH
ON ERROR &app_error
ON ESCAPE &app_escape
qprview.vue2
qprview.vue
appview.vue2
appview.vue
dbfselec.vue2
dbfselec.vue
foxapp.vue2
foxapp
foxapp.vue
SCXNAME
C:DBFNAME
ENINVNAME
CDXNAME
REPNAME
NTMFNAME
BAILOUT
SKIPDBFBUTORIGNAME
DBFLIST
MNUNAME
XTAPPFILE
VERSIONDATADDBS
GFOXAPPDIR
APP_ERROR
APP_ESCAPEQPRVIEW
PRAPPVIEW
DBFSELEC
FOXAPP
APP_TALK
TAPP_SAFE
prgs\appproc.prg
menus\appmenu.mnx
menus\appmenu.mnt
screens\getdest.scx
screens\getdest.sct
screens\getorder.scx
screens\getorder.sct
screens\appabout.scx
screens\appabout.sct
screens\appsrch.scx
screens\appsrch.sct
screens\prtsetup.scx
screens\prtsetup.sct
screens\prtopts.scx
screens\prtopts.sct
screens\appctrl.scx
screens\appctrl.sct
FXPATH
C:ADDBS
ENFOXAPPDIR
PROJDIR
JUSTPATH
NAPPFILE
PUTOUT
PATHNAME
:SOURCE
ENTARGET
FILNAME
JUSTFNAME
ADDBS
FOXAPP.SRC
FOXAPP.SRC
FoxApp source files must be available to build projects.
Please locate the FOXAPP.SRC file:
FoxApp cannot build a full project without its source files.
PATHz
APPDIR
:TARGFILE
NADDBS
ALERT
CLOSE_UP
JUSTPATH
JANUARY
FEBRUARY
MARCH
APRIL
AUGUST
SEPTEMBER
OCTOBER
NOVEMBER
DECEMBER
:VDATESTR
NVMONTHSTR
VMONTH
COMPATIBLEz
SAFETYz
Indexing on
IF TYPE(m.fldname) = "C" AND LEN(&fldname) >= 99
INDEX ON SUBSTR(&fldname,1,99) TO (m.fldname)
INDEX ON &fldname TAG (m.fldname)
Indexing for
is complete!
FILNAME
:COMP_STAT
SAFE_STAT
IN_AREA
FSTEM
JUSTSTEM
LNAME
FLDNAME
APPCTRL.SCX
FOXAPP\SCREENS\APPCTRL.SCX
SELECT &sname
Master screen set record missing!
SET DEFAULT TO &c_path
PJXNAME
:SCXNAME
CTRL_Y
CTRL_X
IN_AREA
SNAME
CTRL_NAME
REGEN
UTCTRL_SCX
ADDBS
JUSTPATH
TJUSTSTEM
PJXFILE
TTYPE
GHOMENAME
HOMEDIR
EMODAL
PRJUSTFNAME
FORCEEXT
SETNUM
SETID
ARRANGED
SCRNORDER
CTRL_ORDERUSER_SCX
RTIMESTAMP
EXCLUDE
PESCRNROW
NSCRNCOL
NCLOSE_UP
XNAME
XNAME
DBFLIST
NUMAREAS
NUMCOLS
CSTEMNUM
ARRANGED
SROWNUM
TSCOLNUM
EROWNUM
ECOLNUM
Please locate the database
FNAME
:STEM
JUSTSTEM
Screen has been created.
Database could not be opened.
:MAXV
S_NAME
SCXNAME
OPENDBF
DBFNAME
ADDBS
JUSTPATH
TJUSTSTEM
ADDSCX
MODSCX
TVPOS
WIDTH
HEIGHT
ECENTER
PRSTYLE
ERRSHOW
FILNAME
:FILARRAY
FILPOS
JUSTFNAME
NEXTDBF
MEMOWIDTHz
FOXAPP2.0
DBFLIST
Retrieving stored relationships.
dbflistf
Where is FF
could not be found!
CSTEM
:NEXTDBF
IN_AREA
J1_AT
J2_AT
MEMWIDTH
TNAME
TINITDBFLISCTRLLINE
CTRLROW
CTRLCOL
ENUMAREAS
THIS_DBF
RNUMCOLS
DBFLIST
CSTEMNUM
CDBFNUM
JUSTSTEM
ALERT
CLOSE_UP
MAKECDX
RCFLDNUM
Resource file is read-only. Not updated.
FOXAPP2.0
DBFLIST
Existing resource record is read-only. Not updated.
dbflist[i,j]f
FOXAPP2.0
DBFLIST
CSTEM
:IN_AREA
_AREA
REPL_STR
FILATTR
STORERSC
TTYPE
TREADONLY
CTRLROW
TCTRLCOL
ISNUMAREAS
NUMCOLS
DBFLIST
EDATA
CKVAL
RUPDATED
RSC_STOREDO
FILNAME
:TAGNAME
CDXNAME
JUSTTAG
FORCEEXT
OPENDBF
INVERT
HIGHT
:WIDTH
SCHEME
FROMROW
FROMCOL
TOROW
TOCOL
WIND_NAME
ALERT
MESSG
LINENO
DEFINEWINDALERT
TALKz
CONSOLEz
IN_TALK
IN_CONS
NDNUMLINES
ALERT_ARRYREMAIN
MAXLEN
TTOP_ROW
RYBOT_ROW
TOP_COL
TBOT_COL
ALERT
TKEYCODE
Line No.: FF
Program:
Error:
Source:
E_PROGRAM
E_MESSAGE
E_SOURCE
DE_LINENO
E_ERROR
RYALERT
CLOSE_UP
Escape pressed. FoxApp is terminating.
E_PROGRAM
E_MESSAGE
E_SOURCE
DE_LINENO
E_ERROR
RYM_QUITTINGCLOSE_UP
ORIGNAME
DBFNAME
APPPATHLENSKIPDBFBUT)
Invalid database name.
Invalid database name.
A screen file name is not allowed here.
A menu file name is not allowed here.
DBFLISTf
DBFNAME
ORIGNAME
RSC_CHECK
CLEANPATH
JUSTSTEM
YJUSTEXT
NGJUSTFNAME
FORCEEXT
DBFALIAS
YOPENDBF
SCXNAME
TSKIPDBFBUTDBFLIST
TCSTEMNUM
Database name:
DBFNAME
MYWIN
DNAME
OPENDBF
ADDDBF
YMODDBF
DBFNAME
OPENDBF
MODDBF
ORIGNAME
DBFNAME
Database name:
DBFLISTf
DBFNAME
ORIGNAME
RSC_CHECK
OPENDBF
SCXNAME
YFORCEEXT
GDBFLIST
CSTEMNUM
JUSTSTEM
dbfselec.spr
OPENDBF
DBFNAME
DBFSELEC
DBFALIAS
SCXNAME
APPPATHLENMODSCX
ADDSCX
Invalid screen name.
SCXNAME
CLEANPATH
JUSTFNAME
FORCEEXT
JUSTSTEM
Screen file name
UNTITLED.SCX
SCXNAME
CREATESCX
Creating screen file
SCXNAME
CREATESCX
Creating screen
SCXNAME
CREATESCX
ADDSCX
Screen file name:
ORIGNAME
SCXNAME
Name your application:F
FOXAPP.APP
I named my program FoxApp. You have to name yours something else.
is an invalid path.
DBFLISTf
Saving database relations and window positions.
Generating application FF
scaffold.prg
*
*
*
<<DATE()>> scaffold.prg <<TIME()>>
*
*
*
*
Description:
*
This program was automatically generated by FoxApp.
*
*
* To run this application, type DO <<UPPER(justfname(m.appfile))>>
* Set up runtime environment
CREATE VIEW appview
SET TALK OFF
PUSH MENU _msysmenu
PUSH KEY CLEAR
fxapp_error = ON('ERROR')
fxapp_esc = ON('ESCAPE')
SET LIBRARY TO fpath
SET SAFETY OFF
SAVE MACROS TO foxapp
SET SAFETY ON
SET DELETED ON
SET ESCAPE OFF
SET STEP OFF
SET ECHO OFF
SET PROCEDURE TO appproc.prg
SET CURSOR ON
CLOSE DATABASES
ON ERROR DO apperror WITH PROGRAM(),MESSAGE(),MESSAGE(1),LINENO(),ERROR()
IF TYPE("BAILOUT") <> "U"
RELEASE bailout
ENDIF
IF TYPE("DBFNAME") <> "U"
RELEASE dbfname
ENDIF
IF TYPE("WIN_NAME") <> "U"
RELEASE win_name
ENDIF
IF TYPE("FILT_EXPR") <> "U"
RELEASE filt_expr
ENDIF
IF TYPE("SRCHTERM") <> "U"
RELEASE srchterm
ENDIF
regen = .T. && use SPR/MPR files instead of PRGs
EXTERNAL SCREEN getdest, getorder, appabout, ;
appsrch, prtopts, prtsetup
regen = .F.
EXTERNAL PROCEDURE getdest, getorder, appabout, ;
appsrch, prtopts, prtsetup
PUBLIC bailout, dbfname, win_name, filt_expr, srchterm
m.bailout = .F.
m.dbfname = "<<m.dbfname>>" && database name
m.qprpath = justpath(m.dbfname) && query file path
m.filt_expr = "" && filter expression, if any
m.srchterm = SPACE(60) && search term
* Define constants for addressing DBFLIST
numareas = <<m.numareas>>
numcols = <<m.numcols>>
cstemnum = <<m.cstemnum>>
relstrnum = <<m.relstrnum>>
pfldnum = <<m.pfldnum>>
cfldnum = <<m.cfldnum>>
cdbfnum = <<m.cdbfnum>>
pdbfnum = <<m.pdbfnum>>
srownum = <<m.srownum>>
scolnum = <<m.scolnum>>
erownum = <<m.erownum>>
ecolnum = <<m.ecolnum>>
arranged = <<m.arranged>>
ctrlrow = <<m.ctrlrow>>
ctrlcol = <<m.ctrlcol>>
nextdbf = <<m.nextdbf>>
DO DefineDbf && define the DBFLIST array
* Summon the main application menu
DO <<_mname>>
* Open the main database
m.stem = juststem(m.dbfname)
IF USED(m.stem)
SELECT (m.stem)
SELECT 0
IF !FILE(m.dbfname)
m.dbfname = GETFILE('DBF','Please locate the '+JustStem(m.dbfname)+' database')
ENDIF
IF EMPTY(m.dbfname) OR !FILE(m.dbfname)
DO alert WITH "The "+m.stem+" database could not be found."
DO cleanup
RETURN
ELSE
USE (m.dbfname)
ENDIF
ENDIF
* Make sure the index exists and is hooked up
IF EMPTY(CDX(1))
IF !FILE(forceext(m.dbfname,'CDX'))
DO invert WITH m.dbfname
ELSE
SET INDEX TO (forceext(m.dbfname,'CDX'))
ENDIF
ENDIF
SET ORDER TO 1
IF RECCOUNT() = 0
APPEND BLANK
IF RECCOUNT() < 10
COUNT FOR !DELETED() TO notdel
IF m.notdel = 0
APPEND BLANK && all records were deleted!
ENDIF
ENDIF
ENDIF
GOTO TOP
CLEAR
Putting F
screen into window.
SELECT F
* The following line was added by FoxApp
SELECT
win_name = "<<win_name>>"
DO WHILE !bailout
* Set up any related databases
DO setrelat
* Display the main screen file
DO <<sc_file>>
ENDDO
DO cleanup
RETURN
*******************************************************************
PROCEDURE cleanup
* Clean up after the application
SET PROCEDURE TO
CLOSE DATABASES
CLEAR WINDOWS
IF SET('TALK') = 'ON'
SET TALK OFF
t_stat = 'ON'
t_stat = 'OFF'
ENDIF
SET TALK OFF
* Restore databases, indexes and environment
IF FILE("appview.vue")
SET VIEW TO appview
SET TALK OFF
DELETE FILE appview.vue
ENDIF
IF FILE("foxapp.fky")
RESTORE MACROS FROM foxapp
DELETE FILE foxapp.fky
ENDIF
IF t_stat = "ON"
SET TALK ON
ENDIF
POP KEY ALL
POP MENU _msysmenu
CLEAR PROGRAM
*Restore original error and escape routines
IF TYPE('fxapp_error') = 'C'
ON ERROR &fxapp_error
ENDIF
IF TYPE('fxapp_esc') = 'C'
ON ESCAPE &fxapp_esc
ENDIF
RELEASE LIBRARY fpath
SET SAFETY ON
RELEASE bailout, dbfname, win_name, filt_expr, srchterm, skipvar, act3
RELEASE dbflist
RETURN
*******************************************************************
PROCEDURE setrelat
* This procedure opens subsidiary databases (if any) and establishes
* the relations between the main database and the subsidiary
* databases. It will be empty if there are no subsidiary databases.
DBFLISTf
SELECT <<CHR(i+64)>>
dname = "<<dbflist[i,m.cdbfnum]>>"
IF !FILE(m.dname)
dname = GETFILE('DBF','Please locate the '+Juststem(m.dname)+ ' database:')
IF EMPTY(m.dname) OR !FILE(m.dname)
DO alert WITH "The "+ALLTRIM(m.dname+" database could not be found.")
DO cleanup
CANCEL
ELSE
SET PATH TO (SET('PATH') + ';' + Justpath(m.dname))
dbflist[<<i>>,m.cdbfnum] = m.dname
dbflist[<<i>>,m.cstemnum] = juststem(m.dname)
ENDIF
ENDIF
USE (dname) ALIAS <<dbflist[i,m.cstemnum]>> ORDER TAG <<m.tagname>>
DEFINE WINDOW <<dbflist[i,m.cstemnum]>> ;
FROM <<dbflist[i,m.srownum]>>,<<dbflist[i,m.scolnum]>> ;
TO <<dbflist[i,m.erownum]>>,<<dbflist[i,m.ecolnum]>> ;
FLOAT GROW ZOOM NOCLOSE MINIMIZE ;
COLOR SCHEME 10
BROWSE LAST NOWAIT;
WINDOW <<dbflist[i,m.cstemnum]>> ;
NOAPPEND ;
COLOR SCHEME 10
SELECT <<Juststem(dbflist[i,m.pdbfnum])>>
<<dbflist[i,m.relstrnum]>> ADDITIVE
* Restore the following line if you only want to see records in the
* parent file that have related records in the child file.
*SET FILTER TO FOUND('<<dbflist[i,m.cstemnum]>>')
SELECT <<Juststem(m.dbfname)>>
RETURN
*******************************************************************
PROCEDURE definedbf
* Define the dbflist array
PUBLIC dbflist[m.numareas,m.numcols]
DBFLISTf
dbflist[i,j]f
DBFLIST[<<i>>,<<j>>] = <<'"'+dbflist[i,j]+'"'>>
DBFLIST[<<i>>,<<j>>] = <<dbflist[i,j]>>
DBFLIST[<<i>>,<<j>>] = ''
*******************************************************************
DEFAULTzF
SET DEFAULT TO &p_path
APPMENU.MPR
DELETE FILE &mpr_name
APPMENU.MPX
DELETE FILE &mpx_name
appproc.prg
appmenu.mnx
prtsetup.scx
getdest.scx
getorder.scx
appabout.scx
appsrch.scx
fpath.plb
PRGS\appproc.prg
MENUS\appmenu.prg
SCREENS\prtsetup.prg
SCREENS\getdest.prg
SCREENS\getorder.prg
SCREENS\appabout.prg
SCREENS\appsrch.prg
LIBS\fpath.plb
SET DEFAULT TO &c_path
WIN_STRINGDNAME
QUOTED
SC_FILE
STSTEM
XNAME
GGENERATE
DBFNAME
SCXNAME
YFORCEEXT
CREATESCX
MNUNAME
UTAPPFILE
TVALID_NAMEJUSTFNAME
ALERT
ADDBS
NAMEJUSTPATH
RSC_STOREDSTORERSC
PUTDBFLISTDBFLIST
JUSTSTEM
GTMFNAME
NGREGEN
_MNAME
VCOORD
RHCOORD
RSCRNFILE
EWIN_MSG
NSTYLE
NCENTER
RWIDTH
HEIGHT
SCHEME
NSCHEME2
WIN_NAME
RELATEDDBFCTRLROW
CTRLCOL
xSROWNUM
SCOLNUM
FLOAT
CLOSE
ACTIVATE
SCSTEMNUM
RTAGNAME
CFLDNUM
NUMAREAS
NUMCOLS
APPNAME
OPPROJNAME
SC_NAME
DC_PATH
RSP_PATH
PJTNAME
NMPR_NAME
NMPX_NAME
COPYPIECE
APPPROC
APPMENU
PRTSETUP
12HT0LGETDEST
8SGETORDER
6APPABOUT
APPSRCH
HSFPATH
HTK6PLB
FOXAPPDIR
MERGECTRL
advance.spr
ADVANCE
NGSPR
QUITTING
CURRWIND
GDBFNAME
SKIPDBFBUTGENERATE
OTHER
YADDDBF
GMODDBF
SCXNAME
ADDSCX
YMODSCX
RSC_CHECK
RETRIEVERSNEXTDBF
TGETDBFLISTCLOSE_UP
COPYPIECE
PUTOUT
FINDSRC
VERSIONDAT
INVERT
MERGECTRL
INITDBFLIS
OPENDBF
CREATESCX
FILATTR
RELATEDDBF
GETDBFLIST
PUTDBFLIST
MAKECDX
DEFINEWIND
ACTWIN
ERRSHOW
ALERT
APPERROR
APPESCAPE
_Q4E12HSXE
_Q4E12HT0L
_Q4E12HT8S
_Q4E12HTE6
_Q4E12HTHS
_Q4E12HTK6
_Q4E12HTP0
_Q4E12HTSF
_Q4E12HTV8
_Q4E12HTZI
_Q4E12HU3J
_Q4E12HU6A
_Q4E12HU9T
_Q4E12HUD6
_Q4E12HX0F
_Q4E12HX36
_Q4E12HX66
_Q4E12HX67
could not be located.
FNAME
TALKz
COMPATIBLEz
dbfselec
Related Databases
dbfselec.vue
addbs
forceext
defaultext
juststem
justext
justpath
justfname
DBFLISTf
Database to open:
dbfselec
@ 0,1 GET dbfselec PICTURE "@&N" FROM dbflist SIZE 14,16 DEFAULT 1 WHEN _q4e12fura() VALID _q4e12fuur() COLOR SCHEME 6
@*VN \<Add;C\<lear
@*VT \!\<OK;\?\<Cancel
@*HN A\<rrange
@*HN \<Show Tree
dbfselec
treewind
CURRAREA
LTALKSTAT
COMPSTAT
DBFSELEC
ADDBS
FORCEEXT
DEFAULTEXTJUSTSTEM
JUSTEXT
JUSTPATH
JUSTFNAME
NEXTDBF
INITDBFLISDBFLIST
CSTEMNUM
CDBFNUM
NEWDBF
FSELEC
NUMAREAS
ORIGDBFLISNUMCOLS
SORIGNEXTDBADDCLR
_Q4E12FV3FOKBUT
_Q4E12FVLXARRANGE
_Q4E12FVRDTREE1
_Q4E12FWAO_Q4E12FWFL_Q4E12FWFNTREEWIND
ARREXFLG
LCTRLROW
CTRLCOL
NUMAREAS
DBFLIST
CSTEMNUM
TSROWNUM
SCOLNUM
EROWNUM
ECOLNUM
ARRANGED
APPGEN
LISDBFSELEC
ARREXFLG
LCTRL
RLCOL
NUMAREAS
DBFLIST
CSTEMNUM
APPGEN
DBFSELEC
DBFNUM
NUMAREAS
DBFLIST
PDBFNUM
CSTEMNUM
treewind
treewind
treewind
treewind
DBFNUM
LINDENT
TREESTR
DBFLIST
CSTEMNUM
END_ROW
NEXTDBF
S_COL
TTREEWIND
EESTR
NUMAREAS
PDBFNUM
SHOWTREE
DBFSELEC
LNEXTDBF
ADDCLR
HASCHILD
Main database.
relselec.spr
DBFSELEC
LNEWDBF
DBFLIST
CSTEMNUM
CHILDFLD
CFLDNUM
CHILDDBF
CDBFNUM
TPARENTFLD
PFLDNUM
IGNCASE
RELSTR
RELSTRNUM
PARENTDBF
PDBFNUM
ADDMODE
RELSELEC
JUSTSTEM
There are no available work areas left.
Database to open:
Duplicate database names are not allowed.
relselec.spr
You cannot clear the main database.
You cannot clear a database that has related databases.
ADDCLR
LNEXTDBF
NUMAREAS
NEWDBF
JUSTEXT
JUSTSTEM
DBFLIST
TCSTEMNUM
CHILDFLD
CHILDDBF
PARENTFLD
IGNCASE
RELSTR
PARENTDBF
RELSELEC
MAKECDX
RELSTRNUM
PFLDNUM
CFLDNUM
CDBFNUM
SPDBFNUM
BSROWNUM
SCOLNUM
3FEROWNUM
ECOLNUM
LXDBFSELEC
ARRANGE
RDHASCHILD
NUMCOLS
Saving database relations and window positions.
dbfselec.vue2
dbfselec.vue
dbfselec.vue2
dbfselec.vue
OKBUT
LRELATEDDBFSTORERSC
PUTDBFLISTDBFLIST
CSTEMNUM
ORIGDBFLISNEXTDBF
TORIGNEXTDBDBFSELEC
treewind
treewind
\<Arrange
ALT+A
\<Save
\<Exit
\Window
\Edit
DO arrsave
DO arrexit
Control panel
Control panel
treewind
ARREXFLG
LTREE_UP
FAPPGEN
DBFSELEC
TTREEWIND
ARRANGE
ARNGPOP
ISARR_SCRN
TCTRLROW
DBCTRLCOL
SCTRL
SCXNAME
DBFLIST
CSTEMNUM
MAXLEN
MAXHEIGHT
MAXCAPT
KECDX
FXSCXNME
WIDTH
HEIGHT
ARRANGED
SNEXTDBF
BSTART_ROW
END_ROW
START_COL
END_COL
LXSROWNUM
SCOLNUM
NUMAREAS
WIN_HEIGHTWS_ROW
GHTWS_COL
GHTWE_ROW
WE_COL
GHTEROWNUM
HTECOLNUM
treewind
\<Show tree
No tree to show!
Database tree
\<Hide tree
TREEWIND
LTREE1
FNEXTDBF
START_ROW
END_ROW
START_COL
END_COL
ISSHOWTREE
NEXTDBF
LARRANGE
treewind
CURRWIND
LTREEWIND
FSHOWTREE
ARRSAVE
ARREXIT
HASCHILD
SHOWTREE
_Q4E12FURA
_Q4E12FUUR
_Q4E12FV3F
_Q4E12FVLX
_Q4E12FVRD
_Q4E12FWAO
_Q4E12FWFL
_Q4E12FWFN
TALKz
COMPATIBLEz
relselec
Database Relations
addbs
forceext
defaultext
juststem
justext
justpath
justfname
Please locate the F
database
relselec
@*VN \!\<OK;\?\<Cancel
How is this database connected to the others?
Fields in
Fields in
Other Databases:
This database:
relselec
CHILDSTEM
CHILDDBF
CHILDFLD
PARENTFLD
IGNCASE
RELSTR
PARENTDBF
ADDMODE
DMODE
CHILDLIST
PARENTLISTCURRAREA
TALKSTAT
COMPSTAT
RELSELEC
ADDBS
FORCEEXT
DEFAULTEXTJUSTSTEM
JUSTEXT
JUSTPATH
JUSTFNAME
IN_AREA
PARENTROW
ILDSTEM
ADDTYPE
CHILDROW
NEWCHILD
NEWPARENT
CDISLIST
_Q4E12FZRI_Q4E12FZUJOKCANCL
_Q4E12FZXF_Q4E12G05JS
FLDNAME
FLDNAME
RETVAL
CURITEM
SOURCETYPETARGTYPE
RENTFLD
GETTYPE
PECHILDLIST
PARENTLIST
CDISLIST
CHILDLIST
CHILDFLD
The child database could not be found.
The parent database could not be found.
SET RELATION TO F
INTO
Parent and child have different data types.
PARENTFLD
CHILDFLD
OKCANCL
DBFPART
RELSTR
TPARENTDBF
ADDMODE
CHILDSTEM
CHILDDBF
CURRWIND
PARENTFLD
GETTYPE
CHILDFLD
OKCANC
ADDTYPE
GETTYPE
CDISLIST
_Q4E12FZRI
_Q4E12FZUJ
_Q4E12FZXF
_Q4E12G05J
FoxPro Library must be loaded by FoxPro
$-c%7@
ZY[X=
WPSQR
UWPSQR
UWPSQR
UVWQS
[Y_^]
[Y_^]
UVWQSR
[Y_^]
u 6;L
UVWQS
[Y_^]
RQSUVW
_^][YZ
UWVQS
X[Y^_]
ZY[X]
ZY[X]
!Stack Overflow!
^Y[]M
^Y[]M
_^Y[]M
^Y[]M
^Y[]M
^Y[]M
^Y[]M
^Y[]M
^Y[]M
^Y[]M
_^Y[]M
_^Y[]M
_^Y[]M
_^Y[]M
0123456789abcdefghijklmnopqrstuvwxyz
<0r!<9w
tX<et
<0r(<9w$
SQRVW
_^ZY[]M
?C~#OS
Floating-point support not loaded
<fr v0<gt
Invalid memo size
Error reading memo field
CueaaaaceeeiiAAEaAooouuyOUaiounN
Data type mismatch
Not a BCD Real
The quick brown fox jumps over the lazy dog.
The ALLTRIM test
The REDUCE test
The DELETE test
The INSERT test
Inserted:
The CHRTRAN test
The OCCURS test
Count the number of 'e' characters in string.
The AT test
Find the position of the first 's'
The RAT test
Find the position of the last 's'
The REPLICATE test
Make 5 'z' characters.
The STRALLTRAN test
the lazy
the crazy
The PADL test
The PADR test
The SPACES test
The STUFF test
The WORDS test
There are
words in the string.
The WORDNUM test
The FCTNPARM test
function(a+b,c+d,foo(e-f+g,h),i)
acosh
log10
atanh
atan2
dpowi
ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890_^$~!#%&-{}()@`:.'
ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890_^$~!#%&-{}()@`:.'\
8888888888
XXXXXXHHHHHHHHHHHHHHHHHHHH
Jb0@
?{Q}<
=@[V6
JUSTFNAME
JUSTSTEM
JUSTEXT
JUSTPATH
JUSTDRIVE
FORCEEXT
DEFAULTEXT
ADDBS
VALIDPATH
CLEANPATH
REDUCE
?,.C,.I
STRFILTER
EUROSORT
?,.C,.C
WORDS
WORDNUM
?,I,.C
NEXTWORD
FCTNPARM
DBL2NUM
NUM2DBL
FLOAT2NUM
LONG2NUM
INT2NUM
FPATHTEST
TALKz
COMPATIBLEz
advance
Advanced Options
addbs
forceext
defaultext
juststem
justext
justpath
justfname
advance
@*RVN \<Abbreviated projects;\<Full projects
Project generation method:
@*C \<Store relations
@*HN \!\<OK;\?\<Cancel
@*C \<Retrieve relations
Resource file options:
advance
CURRAREA
TALKSTAT
COMPSTAT
ADVANCE
ADDBS
FORCEEXT
DEFAULTEXTJUSTSTEM
JUSTEXT
JUSTPATH
JUSTFNAME
REGEN
FULLPROJ
ORIGRETRIERETRIEVERSORIGSTORE
STORERSC
ADVOK
_Q4E12GC3To
ADVOK
REGEN
FULLPROJ
FINDSRC
FOXAPPDIR
RETRIEVERSORIGRETRIESTORERSC
ORIGSTORE
_Q4E12GC3T
SCREENS\APPSCX.SPR
C:\FOXPRO2\FOXAPP\
PRGS\APPSHELL.PRG
SCREENS\DBFSELEC.SPR
SCREENS\RELSELEC.SPR
C:\FOXPRO2\FOXAPP\LIBS\
SCREENS\ADVANCE.SPR
APPSCX.SPX
APPSHELL.FXP
DBFSELEC.SPX
RELSELEC.SPX
FPATH.PLB
ADVANCE.SPX